﻿Imports System.Data
Imports System.Data.SqlClient
Partial Class Login
    Inherits System.Web.UI.Page

    Protected Sub Login1_Authenticate(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.AuthenticateEventArgs) Handles Login1.Authenticate
        Dim dr As SqlDataReader
        dr = UsuarioDB.Autenticar(Login1.UserName, Login1.Password)
        If dr.Read Then
            e.Authenticated = True
        Else
            e.Authenticated = False
        End If
    End Sub
End Class
